home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed10.d64 / subtract-pos (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  150 lines
  1. 10 POKE53280,0:POKE53281,0:POKE646,3
  2. 20 PRINT"[147]                                        [146]";
  3. 21 PRINT"                                        [146]";
  4. 22 PRINT"                                        [146]";
  5. 23 PRINT"    -- GILLIAN'S SUBTRACTING GAME ---   [146]";
  6. 24 PRINT"                                        [146]";
  7. 25 PRINT"[159]                                        [146]";
  8. 26 PRINT"                                        [146]":GOSUB3000
  9. 30 PRINT"      NO NEGATIVE NUMBERS ARE USED.[159]":GOSUB3015
  10. 40 H=1
  11. 50 POKE53280,0:POKE53281,0:POKE646,13
  12. 55 PRINT"[147]    IN THIS GAME YOU MUST ANSWER TEN
  13. 60 [153]"    SUBTRACTION QUESTIONS IN A ROW
  14. 65 PRINT"    TO GET A SCORE. ":GOSUB3005:GOSUB960
  15. 70 PRINT"    PRESS THE SPACE BAR TO CONTINUE
  16. 75 [161]R$:[139]R$[179][177][199](32)[167]75
  17. 90 :
  18. 99 [143] SET UP GAME
  19. 100 [151]53280,15:[151]53281,15:[151]646,0:D[178]0:P[178]0:Q[178]0
  20. 103 [153]"LOADPRINT#               HI"UL"   LO"R1
  21. 105 [153]"STOP   SELECT THE LARGEST AND THEN THE";
  22. 110 [153]"         SMALLEST NUMBERS WITH WHICH YOU         WANT TO WORK."
  23. 112 [141]960
  24. 115 [133]"    (null) HIGH NUMBER ";UL
  25. 117 [141]960:[133]"    (null) LOW NUMBER  ";R1
  26. 120 R[178]UL[170]1[171]R1:TI$[178]"000000"
  27. 125 C[178][181]([187](1)[172]R)[170]R1:B[178][181]([187](1)[172]R)[170]R1
  28. 130 A$[178][199](45):[150] [165] A(X)[178]B[171]C:[139] C[177]B [167] 125:[143] ELIMINATES NEG NUMBERS
  29. 135 [153]"LOADPRINT#              HI"UL"  LO"R1
  30. 140 [139] D[177]0 [167] [153]"POKE NUMBER OF CORRECT ANSWERS SO FAR ="D
  31. 150 M[178][165] A(X):[153]:[153]"STOP";B;A$;C;"= ";:[133] F
  32. 205 [139] F[179][177]M [167] 240
  33. 210 [151]53280,5:[141]900
  34. 212 [153]"CORRECT!!"
  35. 220 [129] T[178]1 [164] 500:[130] T:D[178]D[170]1:[151]53280,0
  36. 225 [139] D[178]10 [167] [141] 1105:[137] 300
  37. 230 [137] 125
  38. 240 [151]53280,2:[141]930
  39. 245 [153]"      OUCH!  THAT IS  NOT WAIT CORRECT!":[141] 3005:P[178]P[170]1
  40. 250 [153]"STOPLOAD      NOW, LOOK AT THIS --":[141] 3000
  41. 252 [153]"ON                                       "
  42. 255 [153]"ON             ";B;A$;C;"= ";M:[141]3015
  43. 257 [153]"ON        THE GAME IS RE-STARTED          WAIT":[141]3010
  44. 260 [139] P[178]4 [167] [141]400
  45. 265 [139] P[178]8[167] [141]450
  46. 270 [139] P[178]12 [167] 4005
  47. 275 D[178]0:[137] 120
  48. 300 K[178][197](TI$)
  49. 303 [153]"LOAD YOU HAVE NOW ANSWERED 10 CONSECUTIVE    QUESTIONS CORRECTLY!
  50. 305 GOSUB3005
  51. 310 PRINT" YOU DID IT IN"K"SECONDS !":GOSUB3005:GOSUB1400:GOSUB3010
  52. 315 PRINT"      **** RECORD YOUR SCORE ****
  53. 320 [141]3000:[153]"               THEN
  54. 325 PRINT"  PRESS THE  SPACE BAR [146] TO CONTINUE"
  55. 330 GETR$:IFR$<>CHR$(32)THEN330
  56. 335 GOSUB3000
  57. 340 IFK<60 THEN Q=Q+1:GOTO 360
  58. 345 PRINT"[147]  TRY TO BEAT 60 SECONDS!":GOSUB3015:GOTO385
  59. 350 GOSUB3005
  60. 360 H=H+1
  61. 365 IFH=10THENGOTO4000:REM SET NUMBER OF COMPLETIONS BY STUDENT
  62. 370 IFQ<3THEN395
  63. 375 PRINT"[147]   GOOD WORK!  NOW, TRY BIGGER NUMBERS!":GOSUB3015
  64. 380 GOTO100
  65. 385 PRINT"[147]  TRY TO IMPROVE YOUR SCORE.":GOSUB3010
  66. 395 PRINT"[147]":TI$="000000":K=0:D=0:GOTO 140
  67. 400 POKE53280,0:POKE53281,0:POKE646,7:GOSUB930
  68. 410 PRINT"[147]        COME ON ... WAKE UP!!":GOSUB900:GOSUB3005
  69. 420 POKE53280,15:POKE53281,15:POKE646,0:RETURN
  70. 450 POKE53280,0:POKE53281,0:POKE646,7:GOSUB930
  71. 460 PRINT"[147]      WAKE UP, SLEEPY HEAD!!!!!":GOSUB900:GOSUB3005
  72. 470 POKE53280,15:POKE53281,15:POKE646,0:RETURN
  73. 899 REM <YES> SOUND
  74. 900 S=54272:FORE=STOS+28:POKEE,0:NEXT
  75. 905 POKE54296,15:POKE54277,42:POKE54278,250
  76. 910 POKE54276,23:POKE54273,23:POKE54272,181
  77. 915 FORT=1TO200:NEXT:POKE54276,32:FORT=1TO500:NEXT
  78. 920 POKE54296,0:RETURN
  79. 929 REM <NO> SOUND
  80. 930 S=54272:FORE=STOS+28:POKEE,0:NEXT
  81. 935 POKE54296,15:POKE54277,18:POKE54278,242
  82. 940 POKE54276,33:POKE54273,4:POKE54272,48
  83. 945 FORT=1TO300:NEXT:POKE54276,32:FORT=1TO400:NEXT
  84. 950 POKE54296,0:RETURN
  85. 955 REM <BLIP> SOUND
  86. 960 S=54272:FORE=STOS+28:POKEE,0:NEXT
  87. 965 POKE54296,15:POKE54277,42:POKE54278,250
  88. 970 POKE54276,23:POKE54273,23:POKE54272,181
  89. 975 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  90. 980 POKE54296,0:RETURN
  91. 991 POKE53280,5:GOSUB900:GOSUB3010:POKE53280,0:RETURN:REM CORRECT RESPOSE FLASH
  92. 992 POKE53280,2:GOSUB930:GOSUB3010:POKE53280,0:RETURN:REM WRONG RESPOSE FLASH
  93. 999 :
  94. 1100 REM END OF ROUND SOUND
  95. 1105 POKE54276,17:POKE54277,30:POKE54278,200:POKE54296,15
  96. 1110 POKE54272,220:FOR T=50 TO 1 STEP-1
  97. 1115 FOR T1=1 TO 5:NEXT T1:NEXT T:FOR T=1 TO 30
  98. 1120 POKE54273,T:POKE53280,T
  99. 1125 FOR T1=1 TO 5:NEXT T1:NEXT T
  100. 1130 POKE54276,0:POKE54273,0:POKE54272,0
  101. 1135 RETURN
  102. 1399 REM ASSORTED REJOINDERS
  103. 1400 IFK<35 THEN PRINT" WHIZ KID!!!":RETURN
  104. 1410 IFK<40 THEN PRINT" FANTASTIC WORK! ":RETURN
  105. 1420 IFK<45 THEN PRINT" TERRIFIC!!":RETURN
  106. 1430 IFK<50 THEN PRINT" GREAT STUFF!":RETURN
  107. 1440 IFK<60 THEN PRINT" THAT'S THE WAY TO GO!":RETURN
  108. 1450 IFK=60 THEN PRINT" YOU DID IT IN 60 SECONDS!  CHEERS!!":RETURN
  109. 1460 IFK<70 THEN PRINT" KEEP TRYING!":RETURN
  110. 1470 IFK<80 THEN PRINT" PUSH HARDER!":RETURN
  111. 1480 IFK<90 THEN PRINT" GET CRACKING!":RETURN
  112. 1490 IFK<100 THEN PRINT" YOU CAN DO BETTER THAN THIS.":RETURN
  113. 1500 IFK<120 THEN PRINT" ARE YOU REALLY AWAKE?":RETURN
  114. 1510 IFK>120 THEN PRINT" WHEN DO YOU PLAN TO WAKE UP?":RETURN
  115. 2000 PRINT"[147]  DON'T FORGET TO RECORD YOUR SCORE.
  116. 2005 [141] 3005
  117. 2010 [153]"  PLEASE CALL THE NEXT PUPIL.":[141] 3015:[141] 3015:[137] 10
  118. 2530 [129] T[178]1 [164] 200:[130]:[151]54276,32:[129] T[178]1 [164] 500:[130]
  119. 2575 [153]"LOADLOOK AT THIS ...."
  120. 2580 [153]""B;A$;C;"=";P:[141] 3010:[142]
  121. 2590 [129] E[178]S [164] S[170]28:[151]E,0:[130]:[142]
  122. 3000 [129] T[178]1 [164] 1000:[130]:[142]
  123. 3005 [129] T[178]1 [164] 2000:[130]:[142]
  124. 3010 [129] T[178]1 [164] 3000:[130]:[142]
  125. 3015 [129] T[178]1 [164] 4000:[130]:[142]
  126. 3020 [129] T[178]1 [164] 7000:[130]:[142]
  127. 4000 [141] 4105
  128. 4005 [153]"LOAD  YOU NOW HAVE A CHOICE:
  129. 4010 PRINT"  PRESS  P [146] TO PLAY AGAIN
  130. 4015 [153]"  PRESS  M WAIT TO RETURN TO DISK MENU
  131. 4020 GETR$:IFR$<>"P"ANDR$<>"M"THEN4020
  132. 4030 IFR$="P"THENRESTORE:GOTO100
  133. 4040 PRINT"[147] RETURNING TO THE DISK MENU
  134. 4050 [147]"MENU",8
  135. 4060 [138]
  136. 4070 [128]
  137. 4100 [143] WHOOPING SOUND
  138. 4105 [129] L[178]54272 [164] 54295:[151] L,0:[130]:[151]54296,8
  139. 4110 [151]54277,8:[151]54278,255:[151]54276,23
  140. 4115 [129] Z[178]1 [164] 3:F1[178]2
  141. 4120 [129] Y[178]1 [164] 3:F2[178]8
  142. 4125 [151]54273,F1
  143. 4130 [129] X[178]1 [164] 5:[151]54287,F2
  144. 4135 F2[178]F2[172]1.4:[130] X:F1[178]F1[172]1.5:[130] Y
  145. 4140 [129] W[178]1 [164] 10:[151]54287,F2:
  146. 4145 F2[178]F2[172]1.05:[130] W:[130] Z:[151]54278,15
  147. 4150 [142]
  148. 5000 [143] DESIGNED BY BILL CUMBERLAND 87:10:15/88:11:01/90:12:07
  149. 5005 [143] PLEASE ADVISE B.C. OF CORRECTIONS OR IMPROVEMETS-PHONE (416)278 7687
  150.